home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / pssst.arc / PSNEWGUY.PRG < prev    next >
Encoding:
Text File  |  1986-08-11  |  4.6 KB  |  135 lines
  1. * PSNEWGUY.PRG
  2. *
  3. * A DBASE II 16BIT COMMAND FILE to allow FILE CREATION
  4. * for SUSPENSE MANAGEMENT
  5. *
  6. * Version 1
  7. * By LTC Denny Hugg
  8. * ANGSC/DOS Andrews AFB MD 16 Jul 1985
  9. *
  10. * Version 2  
  11. * modified by Maj Jim McMurry
  12. * ANGSC/DOSC Truax Field, WI 15 Jun 1986
  13. *
  14. * gsusfile    = SUSPENSE.DBF
  15. * gcomplfile  = COMPLETE.DBF
  16. * gdelfile    = DELETED.DBF
  17. *
  18. * This program copies the structure of PSNEWGUY.DBF to the files named
  19. * above, creates appropriate indexes, and returns to PSSST.PRG.
  20. *
  21. * If this is a new year, gsusfile, gsusindex, and gpryindex are renamed
  22. * to the new year.  The files gcomplfile and gdelfile are archived as
  23. * new files are created for the new year.
  24. *
  25. ERASE
  26. * --- see if he was sent here because it's a new year
  27. STORE VAL($(gdate,1,2)) -1 TO lastyear
  28. STORE gaddstring + 'SP.0' + STR(lastyear,2) TO lastfile
  29. IF .NOT. FILE ("&lastfile")
  30.    * --- look to see if he was using an old version of pssst
  31.    STORE gaddstring + 'SP.DBF' TO oldfile
  32.    IF .NOT. FILE ("&oldfile")
  33.       @ 10,22 SAY 'Creating Your Personal Files Now ...'
  34.       * --- create suspense database
  35.       USE PSNEWGUY.DBF
  36.       COPY STRUCTURE TO &gsusfile
  37.       * --- create suspense index file
  38.       USE &gsusfile
  39.       INDEX ON duedate TO &gsusindex
  40.       * --- create priority index file
  41.       INDEX ON priority TO &gpryindex
  42.       * --- create 'completed' database
  43.       USE PSNEWGUY.DBF
  44.       COPY STRUCTURE TO &gcomplfile
  45.       * --- no index as we want them entered and reported in order completed
  46.       * --- create deleted database
  47.       COPY STRUCTURE TO &gdelfile
  48.       * --- again no index - report in order deleted
  49.    ELSE
  50.       * --- he was using an old version of pssst
  51.       * --- we'll set him up with the new structure
  52.       USE PSNEWGUY.DBF
  53.       COPY STRUCTURE TO &gsusfile
  54.       COPY STRUCTURE TO &gcomplfile 
  55.       COPY STRUCTURE TO &gdelfile
  56.       USE &gsusfile
  57.       * --- get stuff from old suspense file then get rid of it
  58.       APPEND FROM &oldfile
  59.       DELETE FILE &oldfile
  60.       * --- get rid of old indexes
  61.       STORE gaddstring + 'SP.NDX' TO oldfile
  62.       DELETE FILE &oldfile
  63.       STORE gaddstring + 'PR.NDX' TO oldfile
  64.       DELETE FILE &oldfile
  65.       * --- get stuff from old completed file then dump it
  66.       STORE gaddstring + 'CM.DBF' TO oldfile
  67.       USE &gcomplfile
  68.       APPEND FROM &oldfile
  69.       DELETE FILE &oldfile
  70.       * --- same drill for old deleted file
  71.       STORE gaddstring + 'DD.DBF' TO oldfile
  72.       USE &gdelfile
  73.       APPEND FROM &oldfile
  74.       DELETE FILE &oldfile
  75.       * --- create new index files based on suspense date and priority
  76.       USE &gsusfile
  77.       INDEX ON duedate TO &gsusindex
  78.       INDEX ON priority TO &gpryindex
  79.       USE
  80.    ENDIF
  81.    IF .NOT. FILE ("PSPHONE.DBF")
  82.       IF FILE ("PHONE.DBF")
  83.          * --- he has an old phone.dbf
  84.          * --- give him the new structure and filename
  85.          @ 15,13 SAY 'The Data From PHONE.DBF Has Been Copied To PSPHONE.DBF'
  86.          @ 17, 2 SAY 'This Procedure Takes Some Time, But Is A One-Shot';
  87.                     +' Deal For Just A Few Folks'
  88.          USE PSNEWPHN
  89.          COPY STRUCTURE TO PSPHONE
  90.          USE PSPHONE
  91.          APPEND FROM PHONE
  92.          * --- this should take care of old entries that weren't in caps
  93.          INDEX ON !(lname) To PSPHONEI
  94.          @ 15, 0 SAY gclearline
  95.          @ 17, 0 SAY gclearline
  96.       ELSE
  97.          * --- create psphone.dbf for him
  98.          USE PSNEWPHN
  99.          COPY STRUCTURE TO PSPHONE
  100.          USE PSPHONE
  101.          * --- all lname's are forced to caps during entry
  102.          INDEX ON lname TO PSPHONEI
  103.       ENDIF
  104.    ENDIF
  105.    USE
  106.    ERASE
  107. ELSE
  108.    @ 10,22 SAY 'H A P P Y   N E W   Y E A R   ! ! !'
  109.    @ 11,36 SAY gfirstname
  110.    @ 12,20 SAY "I'm Archiving Last Years Completed Items"
  111.    STORE VAL($(gdate,1,2)) -5 TO year5
  112.    STORE VAL($(gdate,1,2)) -1 TO year1
  113.    STORE gaddstring + 'CM.0' + STR(year5,2) TO cm5
  114.    STORE gaddstring + 'DD.0' + STR(year1,2) TO dd1
  115.    * --- delete last year's deleted stuff
  116.    DELETE FILE &dd1
  117.    IF FILE ("&cm5")
  118.       @ 13,17 SAY 'As Well As Deleting The Files From 5 Years Ago'
  119.       DELETE FILE &cm5
  120.    ENDIF
  121.    STORE '.0' + $(gdate,1,2) TO suffix
  122.    STORE gaddstring + 'SP' + suffix TO gsusfile
  123.    * --- give suspense file new year's name
  124.    RENAME &lastfile TO &gsusfile
  125.    STORE gaddstring + 'CM' + suffix TO gcomplfile
  126.    STORE gaddstring + 'DD' + suffix TO gdelfile
  127.    * --- create new year's completed and deleted files
  128.    USE PSNEWGUY.DBF
  129.    COPY STRUCTURE TO &gcomplfile
  130.    COPY STRUCTURE TO &gdelfile
  131. ENDIF
  132. USE
  133. RETURN  
  134. * --- EOF PSNEWGUY.PRG
  135.